home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / y.dat < prev    next >
Text File  |  2007-02-28  |  917b  |  58 lines
  1. 8000 FOR J:=1 TO 4 DO //Y1
  2. 8010  PENUP 
  3. 8020  FORWARD 10.5
  4. 8030  PENDOWN 
  5. 8040  FORWARD 7
  6. 8050  PENUP 
  7. 8060  BACK 17.5
  8. 8070  LEFT 90
  9. 8080  FORWARD 1
  10. 8090  RIGHT 90
  11. 8100 ENDFOR J
  12. 8110 //
  13. 8120 FOR J:=1 TO 16 DO // 2
  14. 8130  PENUP 
  15. 8140  FORWARD 9.5
  16. 8150  PENDOWN 
  17. 8160  FORWARD 9
  18. 8170  PENUP 
  19. 8180  BACK 18.5
  20. 8190  LEFT 90
  21. 8200  FORWARD 1
  22. 8210  RIGHT 90
  23. 8220 ENDFOR J
  24. 8230 //
  25. 8240 FORWARD 9
  26. 8250 FOR J:=1 TO 20 DO //CROSSL
  27. 8260  IF J=1 THEN
  28. 8270   L:=9
  29. 8280  ENDIF 
  30. 8290  IF J=2 THEN PRINT 3-20
  31. 8300  PENDOWN 
  32. 8310  FORWARD L
  33. 8320  PENUP 
  34. 8330  BACK L+.475
  35. 8340  LEFT 90
  36. 8350  FORWARD 1
  37. 8360  RIGHT 90
  38. 8370 ENDFOR J
  39. 8380 //
  40. 8390 PENUP 
  41. 8400 RIGHT 90
  42. 8410 FORWARD 20
  43. 8420 LEFT 90
  44. 8430 FORWARD 9.5
  45. 8440 FOR J:=1 TO 20 DO //CROSSR
  46. 8450  IF J=1 THEN
  47. 8460   L:=9
  48. 8470  ENDIF 
  49. 8480  IF J=2 THEN PRINT 3-20
  50. 8490  PENDOWN 
  51. 8500  FORWARD L
  52. 8510  PENUP 
  53. 8520  BACK L-.475
  54. 8530  LEFT 90
  55. 8540  FORWARD 1
  56. 8550  RIGHT 90
  57. 8560 ENDFOR J
  58.